home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 3 / Gold Medal Software - Volume 3 (Gold Medal) (1994).iso / tutor / pumps.arj / HOW_PUMP.TXT < prev    next >
Text File  |  1993-11-11  |  2KB  |  64 lines
  1. \MOVE 'HOW' TO CURRENT_TOPIC\MOVE 270 TO LASTY_WHERE
  2. \CALL SET_STANDARD_ONKEYS\MOVE 23 TO TUBE_COLORS
  3. \X OPEN_SCRN\ON KEY PG_UP\ON KEY PG_DN JUMP GOSUB5\X TAG11000\IF CURR_PG>12990 OR CURR_PG<12000\MOVE 12000 TO CURR_PG\ENDIF
  4. \MOVE 12100 TO CURR_PG
  5. \MOVE 040 TO Q\MOVE 220 TO R\MOVE 700 TO S\MOVE 652 TO T\MOVE 12 TO U\CALLM TUBE_BOX
  6. \MOVE '242919PW' TO FONT_FLNM\CALLM RD_FON
  7. \MOVE 1 TO MODULE_TWO
  8. \LOC 40,220\WID 660 DOT\OVER 0,A,44,23
  9. \"
  10.         Some Basic Physics.
  11. \"
  12.         Hydraulic Principals.
  13. \"
  14.         Pump Materials.
  15. \"
  16.         Fluid types.
  17. \"
  18.         Priming the Pump.
  19. \"
  20.         Hydraulic Accumulators.
  21. \"
  22. \"
  23. \"
  24. \LOC 120,220\WIDTH 30 DOTS
  25. \"
  26. 1.
  27. \"
  28. 2.
  29. \"
  30. 3.
  31. \"
  32. 4.
  33. \"
  34. 5.
  35. \"
  36. 6.
  37. \MOVE 'ASCOLOGO' TO PIC_FLNM\CALLM RD_PIC
  38. \MOVE '242919PW' TO FONT_FLNM\CALLM RD_FON
  39. \LOC 340,598\OVER 1,A,57,23\WIDTH 240 DOTS
  40.  Choose one...
  41. \IF DEMO_MODE='YES'
  42. \MOVE 750 TO Q\MOVE 300 TO R\MOVE 990 TO S\MOVE 416 TO T\MOVE 9 TO U\CALLM TUBE_BOX\LOCATE 750,300\OVER 1,A,60,23
  43. (These options are not available in this demo.)
  44. \ENDIF
  45. \CALLM WAITBOX
  46. \MOUSE FRAME=0,3 W=67,270,67,562 A=0,1 L=47,LASTY_WHERE R=-1\MOVE E TO CURR_SUBLEVEL\MOVE CURR_SUBLEVEL TO LASTY_WHERE
  47. \CALLM WAITOFF
  48. \X GOSUB5
  49. \IF CURR_SUBLEVEL<300\MOVE 'HOW_PHYS' TO TEXT_FLNM\ELSE
  50. \IF CURR_SUBLEVEL<358\MOVE 'HOW_HYDR' TO TEXT_FLNM\ELSE
  51. \IF CURR_SUBLEVEL<416\MOVE 'HOW_MATE' TO TEXT_FLNM\ELSE
  52. \IF CURR_SUBLEVEL<474\MOVE 'HOW_FLUI' TO TEXT_FLNM\ELSE
  53. \MOVE 'HOW_PRIM' TO TEXT_FLNM\ENDIF
  54. \MOVE 40 TO Q\MOVE 170 TO R\MOVE 590 TO S\MOVE 680 TO T\MOVE 12 TO U\LINE Q,R,S,T,23,BF\CALLM NEW_TUBE_BOX
  55. \IF DEMO_MODE='YES'\CALLM DEMO_MSG\JUMP MAINPAGE\ENDIF
  56. \CALLM RD_TXT\JUMP MAINPAGE
  57. \X  MAINPAGE\CALLM WAITOFF\MOVE 'PUMPMENU' TO TEXT_FLNM\CALLM RD_TXT
  58. \X ALT_QUITED\ON ERROR\END
  59. \X SET_STANDARD_ONKEYS\ON KEY F10 JUMP MAINPAGE\ON KEY 4096 JUMP ALT_QUITED\ON KEY F5 JUMP GLOSSARY\CALLM SET_ERROR_ONKEYS\RETURN
  60. \X CLEAR_ONKEYS\CLEAR ON KEYS\CALL SET_STANDARD_ONKEYS\RETURN
  61. \X GLOSSARY\MOVE 'GLOSSARY' TO TEXT_FLNM\CALLM RD_TXT
  62.  
  63.  
  64.